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re INTRODUCTION 


This document gives a detailed description of an inventory 
control system using the DIBOL language and the DIBOL data 
management facilities. 

The data management facilities described are: 

1) Generalized Input 
2) SORT 


3) Generalized Update 


The appendix to this document contains additional information 
on the components of the DIBOL Software System. It is suggested 
that you review the Appendix before continuing with this 


example. 


All the necessary steps required for a commercial application 


are contained in this description. 
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II. SYSTEM FLOW CHART 
The first step is to lay out the system flowchart. This 
establishes the sequence of operation, the various uses of input 
and output files and the reports generated. 


The system flow chart for this inventory system is: 
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The Stock Status Program is the only user created program. 


All other programs are part of the Data Management Facility 


and the user need only to define the parameters. 


The first step in the flowchart is the data capture phase. It 
uses the generalized input to convert inventory transactions 
(receipts, orders, and amount used) to individual records 

on DECtape, and also produces a proof listing of all input 
transactions. The second step sorts these transactions into 
inventory master order. Finally, the third steps runs the 
sorted inventory transactions against the old master and creates 
a new inventory master file. In addition, a stock status 
print-out is generated showing current activity and year-to-date 
totals. 


In the case of maintenance transactions, the generalized update 
input converts the maintenance transactions (changes, 
insertions, deletions) to individual records on DECtape, 

while also generating a proof listing. The second step 

sorts these transactions into inventory master file order. 

The third step, runs the sorted updated transactions against 
the old master, and creates a new inventory master file. 

In addition, an update report (audit trail) is generated 
showing the old inventory item value and its new value after 


updating. 


ge Be FILE DEFINITIONS 
After the flowchart has been designed, the content and format 
of all of the DECtape files must be precisely defined. In the case 
of this example, there are two files - the inventory master 
and the transaction file. 


The formats are: 


Inventory Master 


Field 

Number Description Type Size 
1 Commodity Identification Decimal 4 
2 Description Alpha 16 
3 Number on Hand Decimal 4 
4 Number on Order Decimal 4 
5 Number Used Year-to-Date Decimal 4 
6 Minimum Balance Decimal 4 
7 Unit Cost Decimal 6 


42/Each inventory 
record is 42 
characters long 


There is one inventory master record for each item stocked. The 
record contains a commodity identification number, a description 
of the item, the number on hand, the number on order, the number 
that has been used, @ minimum balance and a unit cost. These are 


referred to as fields within the record. 


Transaction File 


Field 
Number Description Type Size 
1 Commodity Identification Decimal 4 
2 *Key Decimal i 
3 Amount Decimal 3 
8/Each input 
*Key: 1 = order transaction is 8 
2 = receipt characters long 
3 = use 


There are three types of transactions. An "order" means an increase 
to the number on order. A receipt means an increase to the number 
on hand and a corresponding decrease to the number on order. 

Finally a "use" transaction means a decrease to the number on hand. 
Bach transaction record contains a commodity identification, the key 
indicating transaction type and the number of items affected for 
that commodity. 


IV. 


DESIGN OF INPUT TRANSACTION 


The next step is to design the input transactions. In this case, 
order, receipt and use are referred to as commands.For this 


application, the input format is: the command, followed by the 


commodity identification, followed by the amount. The command 
will indicate the transaction type. The commodity identification 


refers to the appropriate record in the inventory master. Finally, 
the amount indicates the number of units ordered, received, or used. 
An example of the input might be: 


Punched on paper 


*USE 20 5 tape or cards. 
USE 15 1 
| USE 1 1 
USE 22 7 
| USE 22 10 | 
| USE Li Ai 
| USE 34 3 | 
i USE 35 11 | 
| USE 15 19 | 
/ 
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*These transactions specify that 20 units of item 13 were ordered, 
26 units of item 22 were received, and item 20 was used five 
times. 


GENERALIZED INPUT FACILITY 


The Generalized Input Facility provides an easy means for 
capturing, editing and translating data which will later be used 
to update the master file. 


Once the transaction inputs have been created, the Generalized 
Input Control will read the transaction items as defined, convert 
them to the proper DECtape format, and perform careful error 
checking. The procedure for the Generalized Input is: 


First, the Generalized Input Program from the subsystem tape is 


loaded into memory by the Monitor. This program enables the 
computer to read in the Generalized Input Control and the trans- 
action data; Second, the Generalized Input Control is read from 


paper tape, card reader, or magtape (DECtape), which describes the inpui 


and output record formats; Third, the transaction paper tape is 
read in and converted to DECtape. There may be any number of paper 
tapes, each ending with a $ carriage return. After the paper tape 
has been read the teletype will write an asterisk. The user 
responds with a carriage return after loading the next paper tape 
or with an N followed by a carriage return at the end of the input. 


The Generalized Input Control facility requires the following 
information: 


1. Definition of all data field, both input and output. 


2s Definition of each output record stating which fields the 
record contains, their order and the output device 
(normally DECtape). 


3% Definition of each input record stating which fields 
the record contains, their order of occurrence (if they 
are required) and a replacement or alternate field. 


4. A summary of the output devices. 


This information is recorded on a series of statements or lines, 
with each unique statement assigned a letter from A through F. 
The Generalize input control must follow this indicated sequence; 
i.e., A,B-C,D-E,F. 


iy 


In our Inventory Control problem the Generalized Input Control 


is: 
A 1 i 4 
A 2 dL 3 
A 3 1 1 1 Definition of Data Fields 
A 4 5 1 2 
A 5 1 1 3 


Definition of Output Record 
(Order) 


Definition of Output Record 
(Recpt) 


B i i 
C 1 

c 3 | 

3 2 


Definition of Output Record 
(Use) 


Definition 
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Definition of Input Record 


Definition of Input Record 


Summary of Output Devices 


Let's examine each line in detail to understand the parameters. 


Le Data Field--Statement(A_ lines) 
Each Field is assigned a number, and defined as to size 
(number of characters) and type (alphanumeric or decimal). 
If a field is used as both input and output, it need be 
defined only once. A field may be input only, output 
only or both input and output. For the output only field, 
an option is available to initialize the field with a 
constant. 


aS: a 


The A statement format is: 


A <ield Number <yps> <Gizd <onstan> 


Field Number-- a one or two digit number 


Type-- @=Alpha, 1=Decimal 
Size-- Any one or two digit number 
Constant-- Any value up to 30 alphanumeric 


characters or 15 decimal digits 

long. The constant must be consistent 
with the field type and with an alpha 
constant enclosed in quotes. This 
value may be changed by some command 
received later. 


In our inventory example, the input and output formats are defined 
as: 


Input Type Output Type 
Field # Description Size Field # Description Size 
(3,or 4,or 5) Transaction Key D1 (1) Commodity ID D4 
(1) Commodity ID D4 (3,4,or 5) Transaction Key Dl 
(2) Amount D3 (2) Amount D3 


The Data Fields would then be: 
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A 1 1 4 /field 1 is a decimal number 4 characters lon 
A 2 1 3 
A 3 1 lL l(order) /field 3 is a decimal number 1 character long 


with an initial constant value of one at the 
beginning of the run (remember values 1,2,3, 
refer to transaction key order, receipt, and 
use, respectively). 

2 (receipt) 

A 5 1 1 3 (use) 
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26 Output Statements (B & C lines) 


Each output record is assigned a record number, a device or 
file number, and the fields (in order) which make up the 
record. Each record may be written to a different device, 
or multiple records may be written on the same device. 


oe 


The B statement format is: 


B  <€ecord number> ile number> 
Record number-- any two digit number which is referenced by 
an input statement. (D line) 
File Number-- any one digit number which is assigned to an 
output file. Output files are normally 
DECtapes 1-4. 


The C statement format is: 


C <€ield number> 
Field Number-- any number previously assigned in an A 


statement. 

In our example: 

B L. /output record for the input command ORDER (1), on 
DECtape #1. The following C lines describe the output 
format. 

Cc 1 /data field 1, commodity ID 

Cc 3 /data field 3, transaction key 1, ORDER 

C 2 /data field 2, amount 

B 2 2 f/output record for the input command RECPT (2) on 

DECtape #1. 

C 1l 

C 4 

C 2 

B 3 21 foutput record for the input command USE (3) on DECtape 

#1 

Cc 

C 5 

C 2 


Input Statements (D & E lines) 


Each input record contains a transaction code or command, 

the fields (in order) which comprise the record, if they are 
required, and the options for field substitutions. Additionally, 

the output record number for the transaction is identified. Options 
allow sequence counts to be kept, fields to be cleared before output, 
and indicators to be set which discloses the presence of a field. 
This last option is useful when a legal value for the field is 

zero. 


The D & E statement formats are: 


D <Transaction Codé> Output Record> ero Field> <{ncrement> 
or Command Number Field 


Transaction Code-- --up to a 6 character code or command 

Output Record Number-any one or two digit number that has 
previously been defined by a B statement. 
The B statement describes the output 


a0 


Output Record Number-format for this input command. This 


(continued) 


Zero Field-- 


Increment Field-- 


number may be zero which indicates 
this transaction is not to be written 
out. This can be used to initial 
fields via input data. 

If this parameter contains a number 
other than zero, it refers to a field 
number as defined in an A statement. | 
This field will be set to zero prior 
to writing out the record. 

If this parameter contains a number 
other than zero, it refers to a field 
number as defined in an A statement. 
This field must be decimal and it 

is incremented by one each time the 
transaction code or command is 
encountered. This is useful as a 
sequence number or counter, e.g. 
invoice numbering. 


E <field> <Necessary> {Present> <Default> 


Number Switch 


Field Number-- 


Necessary Switch- 


Present Field-- 


Field Field 


Any two digit number which refers 

to a field previously defined by 

an A statement. 

A one digit number which has a value 
of zero or one. Zero indicates the 
field is optional; (i.e., it may 

or may not be present). One indicates 
the field is required. When required, 
if the field is missing from the input 
record, it is flagged as an error; 
e.g. in a payroll program, the input 
must contain the employee's name. 


A one or two digit number which 

refers to a field, previous defined 

by an A statement. This is used in 
conjunction with the necessary switch. 
If the necessary switch is zero, then 
the field referenced by the present 
switch is set to one when the field 

is found on the input record and set to 
zero when the field is missing. The 
field referenced by the present field 
must be defined as decimal 1 (Dl). In 
our inventory example the present field 
was set to zero. See end of this 
section for a detailed explanation of 
the present field. 


Default Field-- 


fics 

A one or two digit number which refers tc 
a field previously defined by an A 
statement. This is used in conjunction 
with the necessary switch. If the 
necessary switch is set to zero, 
(indicating an optional field) and 

the default field is non-zero, then 

the field referenced (by the default 
field) is substituted when the input 
field is missing. The fields must 

be the same size. For example, 

E 3 0 0 5. says if field 3 data 


is missing, substitute 
field 5 in its place. 


Note, only the present field or the default field may be 
used. They cannot be used together, and they may be used only 
when the necessary switch is zero. 


In our example, the D & E lines are: 
D ORDER 1 /Every time there is a transaction 


ORDER input it will be outputted 
according to Bl 


| eel 


E he 1 /item number-must be present 
E 2 af /Amount--must be present 

D RECPT 2 

E 1 1 

E 2 1 

D USE 3 

E 1 

E 2 


DETAILED EXPLANATION OF 
PRESENT FIELD 


In order to give you a better understanding of the usage of the 
present field, another example might be helpful. Suppose we 
had a billing operation in which there could be price overrides. 


The inputs to this example would be: 
Commodity ID, 
# shipped, and 
price override (if present). 
The output would be: 
Commodity ID, 
# shipped, 
price override vresent (yes/no) 
price override 


Data 
Fields 


Output 
Records 


Input 
Records 
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The Generalized Input Control for this example would 


be: 

A 1 6) 5 /Ccommodity ID 

A 2 1 4 /# Shipped 

A 3 1 1 /price present 

A 4 1 6 /price override 

B i: a foutput the input command 1 on DECtape 1 

Cc 1 

Cc 2 

Cc 3 

Cc 4 

D I 1 /output this input transaction I 
according to Bl 

E 1 1 /Commodity ID-required 

E 2 1 /#+ shipped-required 

E 4 9) 3 /override price not required but,if 


present, Set A3 to 1 and use 
override price (special price) of 
A4. If override price not. present 
the A3 would be zero and the price 
on the commodity master would be 
used. In this manner, a special 
price to customers may be recorded. 


Summary of Output Devices (F line) 


F statement defines file specifications. This simply indicates 
the number of different DECtapes specified as the file number on 
all the B lines. The format is: 


F number of fileS> <file I> ile D> ile ID <file D 
In our inventory example: 


F 1 1 /says “total number of one file, on 
DECtape #1 


aj 32 


Now, let's put all of these statements back together in our 
Generalized Input Control to see the entire operation. 


A 1 1 4 /Data Field for commodity number,4 digits 

A 2 1 3 /Data field for amount, 3 digits 

A 3 1 Hi 1 /Data field for order transaction key, 
constant of 1 

A 4 1 1 2 /Data Field for receipt transaction key, 
constant of 2 

A 5 1 Ka 3 /Data Field for use transaction key, 
constant of 3 

B 1 1 /Output record for the input command 1 
(ORDER) on DECtape #1 

Cc lL /(Output format) field l-item number 


field 3-order key 
. field 2-amount 
B 2 1 /Output record for the input command 2 
(RECPT) on DECtape #1 


Cc 1 

Cc 4 

Cc 2 

B 3 1 /Output record for the input command 3 
on DECtape #1 

Cc Ll 

C 5 

Cc 2 

D ORDER 1 /Input transaction record ORDER to be 
outputted according to Bl 

B Z LZ /Input item number--required 

E 2 1 /Input Amount--required 

D RECPT 2 

E 1 1 

E 2 i: 

D USE 3 

E l 1 

E 2 I 

F L Ll /Total number of files 1, on DECtape #1 


As each transaction is read by the Generalized Input program, 
it is listed and any transactions in error will have an 
error message printed to the left. Only valid transactiors 
are written on the output tape. 


From the transaction input, i.e.,, USE 20 5, this would be 
outputted on DECtape 1 as: 


20 
3 (use key) 
5 


This would be continued for all valid inpu: cransactions. 


sTA= 
VI. SORT 


The sort package allows the user to arrange a data file in any 
specified order. The user defines the records to be sorted and 
gives "sort keys" within the record. The sort run is a two or 
three phase process, depending on the number of input DECtape 
files. The system's tape contains the programs for sort phase l, 
sort phase 2, and sort phase 3. Each program enables the system 
to perform specific sort operating instructions. These programs 
are called into core by the DIBOL monitor. The user must create 
the sort control program defining the sort parameters. 


The three phases of the sort operation follow: 


The first phase is an internal sort. It reads in a predetermined 
number of records from the input file, sorts them as specified 
by the sort control, and writes them out on DECtape #3. This 
operation is continued until the end of the input DECtape. 

The output from Phase I will contain a string of sorted subfiles 
on DECtape 3. The number of input DECtapes will normally 

equal the number of output DECtapes after Phase I. [In the 

case of a single reel input, the Phase I output will be a 

Single subfile. In the case of multi-reel inputs, when 

an output subfile is filled, the operator is requested to 

take it down and put up a new tape for the next Phase I 

output subfile. 


Phase II then uses a multi-phase merge to sort each output 
from Phase I; i.e., strings of sorted subfiles so that only 
one sorted string remains. Phase II requires the use of all 
four DECtapes. Phase II must be run as many times as there 
are output files from Phase I. 


The Phase III sort is used only in the case of multi-reel files. 
Phase III merges the Phase II outputs into a single multi-reel 
output file. (Phase III is not required if there is only one 
output subfile from Phase I). 


If there are 2 input files (DECtapes), then there would be 

2 output files (DECtapes) after Phase I; each containing 
strings of sorted subfiles. Each output file would then be 
individually sorted (sort strings of subfiles into one) 

so that after Phase II there are two files, each on DECtape 
and each separately sorted. However, this still means there 
are two sorted subfiles. Phase III will merge the two sorted 
subfiles into one sorted file. 


a Ie 


In general, the DIBOL sort has the following process chart: 
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Paper tape A ’ \ 
Card f sort . input + 
Magnetic control, | file : 
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In our inventory example, now that the transactions are converted 

from input format to DECtape format, vou need to sort them into 

the order of the inventory masternthat is by commodity identification. To 
do so, order the records in the ascending order of the first four 
characters (commodity identification). The sort control for this is 


simply: 

first ling 4951880191952 

sec. line] (9929299 (Punched on paper tape, cards 
$ or magnetic tape) 


The first line (13 characters) defines the sort keys. The 

second line (7 characters) defines the record (sort field} to be 
sorted, and its position on the DECtape file. In our example the 
sort field is by commodity identification. Let's examine what 
each character means: 


FIRST LINE-13 Character, i.e. j|1 2 314 5 6 71819 10 11 12113] 
lo fo js5]1|sjo jojzjo{ 1] of 5] o| 


ies 


1-3 (005) /Record input size in words 
to calculate the size of the input record in words, 
add 1 to the record character length divided by 2 (drop 
any remainder) plus 1. In our example the transaction 
input record is 8 characters long; i.e., commodity 
ID, key, and amount (refer to transaction file) 
8+1=9 2= 4 + 1= 5 (coded as 005) 


4-7 (1800) /Internal Sort Buffer Size 
Must be a multiple of record size in words and less 
than 2000. One normally chooses this number as large 
as possible in order to sort as many records 
internally in Phase I. (There is no common practice 
for determining this buffer size, it is dependent on the 
record size) 
1800= (5 x 360 a constant) 


8 (1) Number of sort fields 
(If two sort fields are contiguous, they are considered 


as 1). In our example there is only one sort field-- 
commodity identification. 


9-12 (0105) /Number of Blocks per DECtape 
This field times the size of the internal sort buffer 
must be less than 190,000 (words per DECtape). This 
is calculated by dividing internal sort buffer into 
190,000 


190,000 — 1800= 105 (coded as 0105) 


13 =(Q) /Phase 2 Input Save Switch 
If the input from Phase 2 should be saved, Code 1; 
If not, Code 0. Sort coded O will write over the input 
to Phase 2. Normally this field is O and the input 
tapes to Phase 2 are written over as part of the 
multiphase merge. 


SECOND LINE (One for each sort field) 7 eu ater = ieee lad 
fojo {zjo}2}ojo | 


1-3 (001)Beginning Location of field on the DECtape file 
First position of field + 1 2 (drop remainder) 
In our example commodity ID begins in Position l 
(See Transaction file) 


l+1l22=1 


4-5 (02)Number of words spanned 
The formula for calculating words spanned is 
dependent on the beginning position of the field 
on the DECtape file, i.e., even or odd, and the 


number of characters in the field, again even or 
odd. The formula for words spanned is: 


Bey ey 


Beginning Position # of Characters Calculation 

in Fieid 
Even Even # of Characters >2+1 
Even Odd = #¢ of Characters +2+1 
Odd Odd 7 # of Characters = 2+1 
Odd Even = # of Characters 2 


(all remainders are 
dropped) 


In our example Commodity ID begins in Position 1, and is 


four characters long 
4 — 2=2 (Odd,Even) 


(0) /First word switch 
If final character of sort key is even, code as 1; if 
odd, code O (it's odd in our example, it starts in 


Position 1) 


(0) /Last word switch 
If ending position for sort key is odd, code as 
1; if even, code 0. In our example commodity ID 
ends in Position 4 (4 characters) 


VIL. STOCK STATUS PROGRAM 


The major portion of this application is the user created program which updates the inventory 
master and prints the stock status report. This program consists of only 164 DIBOL 
statements, of which 80 are executable. The other 84 statements are used to define 

the various data elements. The program is: 


3X@@3 - DEMO UPD + RPT 


BLOCK 


BLOCK PH 


> 
PHDe2, 


> 
BLOCK BLK,C 

? 

 ) 


> 
BLOCK P,C 


t 
PP, 


> 
BLOCK ,X 


All,' ID DESC! 

A14 

A9,'POH XCP t 
All,'#CUR #YTD ' 
A13,'NOH ORD MBAL' 
AL 

AS,'ucost! 

A8 

A5,'XCOST! 

D1 


D2 
A1lG,'STOCK STAT" 
Al@,'US REPORT ' 
A2¢g 
A8 
Aek 
AL, ' PAGE? 
\ 


INIT(2,V, IN) 
IF(TRAN.EQ.@)GO TO Q6 
INIT(1,V,IN) 
INIT(3,V,0UT) 

CALL READM 

CALL READT 
IF(EOFM.EQ.1)GO TO Ql 
IF(EOFT.EQ.1)GO TO Q2 
IF(T1.GT.M1)GO TO Q2 
GO TO (ORD,RED,USE),T2 
Mu=Mh473 

CALL READT 


GO TO Q3 
M4=M44+T3 
M3=M3+T3 
M9=M9+T3 
CALL READT 
GO TO Q3 
M3=M3+T3 
M5=M5+T3 
M1G=M1G+T3 
CALL READT 
GO TO Q3 
PP= 
IF(M3,GE,M6)GO TO Q4& 23, 
PP(1,1)='*!' 


RETURN 
LN=LN+1 
IF(LN.LE,50)GO TO 23 
LN= 

PG=PG+1 ‘ 
PHD1=DATE,'XX/XX/XX' 
PHD2=PG 

XMIT(6,HOF) 
XMIT(6,PHD) 
XMIT(6,BLK) 
XMIT(6,CHD) 
XMIT(6,BLK) 
XMIT(6,P) 

RETURN 


P1=M1 END (943¢0,9481) 


P2=M2 
P3=M8 

Pl=M9 

P5=M1¢ 

P6=M5 

P7=M3 

P8=M4 

P9=M6 
P1Q=M7,'X,XXX,XX' 
XCOST=M3*M7 
P1l1=XCOST,'X,XXX,XXX.XxX' 
TOT=TOT+XCOST 

CALL PRINT 

XMIT (3,M) 

CALL READM 

GO TO Q5 
XMIT(6,BLK) 

PP= 

PP(67,67)='*! 
Pl1l=TOT,'X,XXX,XXX.Xx' 
XMIT (6,P) 

FINI(3) 

XMIT (6,HOF) 

STOP 

EOFM=1 

XMIT(2,M,Z1) 

EOFM= 

M8=M3 

M9= 

M1g= 

RETURN 

EOFT=1 

IF(TRAN ,EQ,¢)GOTOZ2 
SMIT(1,T,22) 

EOFT= 


-SI- 


= o= 


EXPLANATION OF PROGRAM 


START 
BLOCK M > (INVENTORY MASTER FILE) 
Ml, D4 ;Commodity ID, 4 digits 
M2, Al16 ;Description, 16 character alpha 
word 
M3, D4 ;Number on hand, 4 digits 
M4, D4 ;Number on order, 4 digits 
M5, D4 ;Number used year to date, 4 digits 
M6, D4 ;Minimum balance, 4 digits 
M7, D6 ;Unit cost, 6 digits 
BLOCK T ; (TRANSACTION FILE) 
Ti, D4 ;Commodity ID 
2, Dl ;Transaction key (order, receipt, 
used) 
is D3 ;Amount 
BLOCK HOF,C ; (HEAD OF FORM) Required for 
line printer 
: D2, 70 
: Al 
‘. D1 
BLOCK CHD,C : (RECORD HEADING ON PAGE) -See 
sample report 
P D2 ;When using line printer as 
output, start block with D2. 
This is a device control and does not 
mean 2 zeros 
’ All,' ID DESC' 
P Al4 ;Spaces 
: A9, 'POH XCP' 
; All, '#CUR #YTD ' Column Headings 
P Al3,'NOH ORD MBAL' 
; A4 
' A5, ‘ucOosT' 
F A8 
' A5, ‘'xcost' 
. D1 ;When using line printer as output 
End Block with Dl. This is a 
control and does not mean 1 zero 
BLOCK PHD,C (PAGE DESCRIPTION)-See Sample 
report 
; D2 ;Start block with printer control 
; mio daa bce 7;Stock Status Report 
F A20 
PHD1, A8 ;Date location to be referenced 
in program 
j A24 
: A4,'PAGE' 
PHD2, A4 7;Page number location 


Dl 7;End Block with printer control 


BLOCK BLK,C 


BLOCK P, 


BLOCK ,X 


BLOCK 


PROC 


e 
f 
é 
Cc 


PP, 


e 


DY 
Dl 
Dl 


50 
(2,V,IN) 


I Om 


. 
‘ 


; (BLANK LINE) 

;Prints blank digits 

; (PRINTER BUFFER) 

;Printer buffer 80 columns 


; (DATA)-Data Overlay into printer 
buffer 


72 spaces 

:ID Number (in columns 3-7) 
;Space 

;Description 


;Previous on hand 
;Receipt 

;Current # 

7Year to date # 
:;New on hand 

; Ordered 

;Minimum Balance 
;Unit Cost 


Extended Cost 


; (TEMPORARY STORAGE) 
;Temporary Storage 


;Temporary Storage for page number 

;Temporary Storage for line count 

;Temporary Storage for Total 

;Allows entry of DATE from console 
before program execution 

;Allows entry of parameter from 
console. If no input transactions 
=0, if there are transaction 

;Temporary storage for extended cost 

;End of Master Indicator 

;End of Transaction 

7; BEGIN PROCESSING SECTION 

Set TOTAL to zero 

;Set page to zero 

7Set line count to 50 

;Initialize DECtape #2 (old master) as 


an me tel file with variable length 
records 


ah ae 
IF (TRAN.EQ.0) Go to Q6 ;I£f no transaction (Trans=0) go 
to Q6--would rewrite inventory master 
and produce a listing of the master file 


Q6, 


Q5, 


Q37 


ORD, 


REC, 


USE, 


INIT (1,V,IN) 


INIT (3,V,OUT) 
CALL READM 


CALL READT 


IF (EOFM.EQ.1) Go To Ql 


IF (EOFT.EQ.1) Go To Q2 


IF (T1L.GT.M1) Go To Q2 


Go To (ORD,REC, USE) ,T2 


M4 = M4 + T3 


Go To 903 
M4 = M4 = 73 


I 
= 
W 
+ 
re 
Ww 


M3 


ll 

s 
ul 
ae 
| 
1S) 


M5 


M10 = M1O + 7T3 


;Initialize DECtape #1 (sorted 
transaction) as an input file 


;Initialize DECtape #3 (new 
master) as an input file 
7Execute subroutine READM (read 
oid master) 

sExecute subroutine READT (reads 
transaction record) 


;If end of master=1 (all records 
read) go to Q1 (print Total) 


7;If end of transaction=1 go to 
QO2 

;If transaction commodity ID# is 
greater than master ID# go to 
Q2 (see footnote) 

;If T2 (transaction file key) 
equals 1, go to ORD, If=2 go to 
REC, If=3 go to USE 


*Number on order in old master + 
number ordered in transaction 
will be new number on order 
figure held in M4 

“Execute subroutine (reads 
another transaction record) 
Jump statement 


:Number on order in new master 
will be number on order (old 
master)-number received (trans- 
action record) held in M4 
sNumber on hand in new master 
will be number on hand (old 
master) + amount received (trans- 
action record) held in M3... 
M9 will store amount received 
‘Execute subroutine READT (reads 
another transaction record) 
;Jump statement 


:Number on hand in new master will 
egual number on hand (old master) 
minus amount used 

;Number used year to date in new 
master will equal number used 

year to date plus amount (trans- 
action record) held in M5 

:M1O will store current amount used 


CALL READT “Execute subroutine (read another 
transaction record) 
Go To Q3 :;Jump statement 


Q2, 


Q4, 


Ql, 


READM, 


Zl, 
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pPp= 
T£ (M3, GE .M6)Go To 24 


La 


PP (1,1) = 


P1=M1 
P2=M2 
P3=M8 
P4=M9 
P5=M10 
P6=M5 
P7=M3 
P8=M4 
P9=M6 


P1O=M7, 'X,XXX,XX' 


XCOST = M3 * M7 
Pl1l=xXCost, 'X,XXX,XXX.XXx' 
TOT=TOT + XCost 


CALL PRINT 
XMIT (3,M) 


CALL READM 
Go To Q5 
XMIT (6,BLK) 


PP= 

PP (67,67)='*' 
P11=TOT, 'X,XXX,XXX.XX' 
XMIT (6,P) 


FINI (3) 
XMIT (6,HOF) 
STOP 


EOFM=1 
XMIT (2,M,Z1) 


EOFM= 
M8=M3 


M9= 
M10= 


RETURN 


7;Set printer buffer to zero 

;If number on hand is greater 
than or egual to minimum balance 
go to 04 

;Print an * when number on hand 
is less than MBAL 


:;Commodity ID will be in Pl 
;Description 

-Previous on hand(see M8) 

sAmount received 

sCurrent number used 

-Total used year to date 

Total number on hand 

*Total number on order 

*Minimum balance 

sUnit cost (formatted) 

-Extended cost=number on hand x 
unit cost 

*Stores extended cost (formatted) 
in Pll 

;Incremental Total Cost by adding 
XCost for each record 

“Execute. subroutine print 
;Write onto DECtape #3 (new master) 
block M (master file) , 
‘Execute subroutinef{read old master) 
zJump statement 


sWrite onto device 6 (line printer) 
contents of block BLK which is 
blank line 

7Set print buffer to zero 

>Print * in column 67 

*Store total cost in Pll 

-Write onto line printer block 

P (Block P will now contain only the 
total figure) 

*Finalize DECtape #3 (new master) 
is rewound 

sWrite Head of Forms Block 


;Return Control to DIBOL monitor 


Set EOF Master file to l 

;Read a record from DECtape #2 
old inventory master; at end of 
file go to Z1 

*>Set end of master to zero 

-Put number on hand into location 
M8 

*Set location M9 to zero 

-Set location M1O to zero 


sReturn to next statement after 
CALL READM 


READT EOFT=1 


IF (TRAN .EQ.0)}Go 


XMIT (1.7.22) 


EOFT 


Z2, RETURN 


PRINT, LN=LN}1 
IF (LN.LE.50)Go To Z3 


LN= 


PG=PG+1 


PHD1=DATE, 


PHD2=PG 


XMIT 


23, XMIT 


End 


Footnote 


* Master Commodity ID 


mW N|E 


(6,HOF) 
(6, PHD) 


(6,BLK) 


(0430,0481) 


etc. 


"XX /XX/XX' 


=93= 


' Set end of transaction to l 

; LT£ no transaction(0) go to 22 
When no more transactions, the 
program could continue to read 
the rest of the older inventory 
items 


;Read from DECtape #1 a trans- 
action record; at end of file 
go to 22 
Set end of transaction to zero 


:Return to statement after 
CALL READT 


sIncrement line count 

;I£f line number is equal to or 
less than 50, go to Z3 

7Set line count to zero 
;Increment page number 

?Format date for page header 
;Inserts page number for page 
description 

;Write on device 6 (line printer) 
block HOF (head of forms) 

;Write on device 6 (line printer) 
block PHD (page description) 
;Write on device 6 (line printer) 
block BLK (blank line) 


Write on device 6 (line printer) 


block CHD (record heading) 


°Wri ta ann device 6 (line vr 


5 
ed WL WAN Vv \ me eee pri « 


block BLK (blank line) 


;Write on device 6 (line printer) 
block P (data) 

*Return to statement after CALL 
PRINT 
s;lst set of numbers is the number of 
words used in the DATA 

section. (Maximum is 1170) 2nd 

set of numbers is the number of 
words used in the Procedure Section- 
after PROC. (maximum 1050) 


Transaction after sorted commodity ID 


1 


1 
1 
2 


iP bo 


At this point trans commodity ID is 
greater than master ID go to Q2 
(print subroutine) 


Viit. 


Suppose that the transactions shown in Section IV 


STOCK STATUS REPORT 


the master file; 


STOCK 


ID 


ee 


het H 
OANUEWHEF AO OVD EW 


STATUS REPORT 
DESC 


FLANGE, PURPLE 
SCREW, BLACK 
NUT, BROWN 
BRACKET, BLACK 
BRACKET, WHITE 
RIVIT, WHITE 
PIN, YELLOW 
RIVIT, RED 
SCREW, PURPLE 
DOWEL, GREEN 
HINGE, GREEN 
CLIP, RED 
FLANGE, GREEN 
FLANGE, PURPLE 
BRACKET, BLACK 
PIN, BLUE 
DOWEL, BLACK 
NUT, YELLOW 
PIN, BLUE 
RIVIT, YELLOW 
BRACKET, PINK 
HINGE, YELLOW 


DOWEL, RED 
FLANGE, RED 
PIN, BROWN 
FLANGE, WHITE 
BOLT, BROWN 
WUT, BLACK 
HINGE, BROWN 
FLANGE, PURPLE 
HINGE, BLUE 
DOWEL, PINK 
CLIP, GREEN 
PIN, RED 

PIN, BLACK 
PIN, ORANGE 
CLIP, RED 
PLANE, 
DOWEL, BLUE 
NUT, PURPLE 
FLANGE, BLUE 
PIN, YELLOW 
NUT, YELLOW 
HINGE, ORANGE 
PIN, BLACK 
BOLT, RED 
SCREW, YELLOW 
BRACKET, GREEN 
BRACKET, 
RIVIT, RED 
DOWEL, BROWN 


GREEN 


YELLOW 
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#Y¥TD 


Notice that item 14 was used once, 
used 17 times - for a total change of nine in the "on hand" column. 

The new on-hand balance for item 19 is less than the minimum balance - 
thus an asterisk is printed out to the left. 


ORD MBAL 
74 57 
57 52 
35 79 
86 9¢ 
91 31 
31 95 
54 66 
95 38 
62 69 
56 4 
35 93 
73 8¢ 
78 pa 
95 2¢ 
2¢ 62 
62 61 
86 53 
19 92 
94 9¢ 
9h 59 
27 2¢ 

g oT 
27 5h 
8 62 
81 69 
53 1¢ 
33 22 
22 51 
l he 

199 76 

29 2 

g 79 
38 2h 
57 oh 
OT 75 
76 59 
79 6 
86 gh 
43 yl 
7G 2 
85 39 
3 53 
75 53 
63 83 
35 4 
4 dxf 
69 62 
60 33 
114 6g 
8 69 
2¢ 54 


PAGE 


1 


UCOST 


873. 
835. 
675. 
931. 

29. 
755. 


XCOST 


162.107 
88,579. 
8G,41¢. 

143,381. 

6,525. 

114,336. 

133,157. 
33,412. 
29,227. 

u727. 
91,317. 

192,663. 
13,415. 

136.962. 
27,1963. 

151,192. 
67,251. 

134,51¢. 
33,751. 
3 fs D1 Dd, 
T7,451. 

146,697. 
26,266. 
29 ,62¢. 

116,9¢8. 
13,509. 
23,852. 
9.3.3 2D 
57,291. 
ug 426. 
35,864. 
15,176. 
89,968. 
4g 132. 
42,932. 

149,885. 

6,615. 
87,2h2. 
75,088. 
15885. 
68,972. 
BUT. 
79,517. 
70,796. 
76,743. 

127,871. 
21,86¢. 
11,354. 
41,113. 

152,196. 
79,925. 


were run against 
you would receive the following report print out: 


(Page Description) 
(Record Heading) 


Item 22 was received 26 times and 


IX, 
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FILE MAINTENANCE -— GENERALIZED UPDATE FACILITY 


In additior to the regular master file activity update and stock 
status report, it is necessary to have some means of creating _ 
and changing a master file. For example, it may be necessary to 
change the minimum balance or description of some existing item, 
or completely delete an item from stock. The Generalized Update 
Facility provides the means for the user to perform insertions, 
changes, and deletions. 


The update run is a three stage process: 


First, the Generalized Update Input Program is read into 
memory from the system tape by the monitor (this enables 
the computer to read data from paper tape). The update 
control, defining file parameters, is then read into memory 
before the transaction data. The transactions are then 
converted from paper tape to DECtape according to the 
update control. 


Second, the sort program is read into memory by the 
monitor. The sort control program, which will define 
the sort arrangement, (refer to Sort Transaction) is 
then read from paper tape. The transaction DECtape 
would then be sorted according to the sort control. 
In our example, the transaction data is sorted by 
Commodity ID. 


Third, the Generalize Update Process Program (enables 
computer to read DECtape data formats from transactions 
and old master, compare, write a new master, and generate 
update report) is read into memory. The update process 
program and the update control program will run the 
sorted transactions against the old master, producing a 
new master and an update report (audit trail). 


As each transaction is read by the Generalize Update Input 


Program, it is listed and any transactions in error will have an 
error message printed to the left. Only valid transactions are 


written on the output tape. 


s96= 


The process chart for any generalized update is: 


* = Paper tape 
or cards 


Generalize 
Update 
Input 


Ga) DECtape 1 


Transaction 
Listing 


Mag tape 
Paper tape 
Cards 


Paper tape 
Card 
Magnetic tape 


Line 
Printer 


Report 


(Audit Trial) DECtape 3 


* The user would have to create the input transactions,the update 
control, and the sort control. The input transaction contains 
transaction code for insert or delete. The insert code is used 
either to insert a new item or change an existing item. Through 


these commands, the transactions are passed against a master file, 


resulting in an update master tape and a listing of transactions 


on the line printer (audit trail). The update transaction statements 


are limited to 50 characters per transaction. The update control 
defines the content of the file records and the format of the 
desired "audit trail" report. This control is read by both 
sections of the update (input and process) before execution. 


Let's examine each of the programs generated by the user, i.e., 


update control and input transaction programs, sort and the 
audit trail report. 


2072 
l. Update Control 


The update control has three sections. The first section 
consists of one line and contains information as to the number 
of fields and the record size. The second section consists of 
four lines and gives the column headings for the update report. 
Finally, the third section has one line for each field on the 
inventory master and describes where the field is, how big it is, 
the data type, and where and if it should be printed on the up- 
date report. 


The generalized update control for our inventory example 
would be: 


07042001041 Section I 
(Control line) 
ONHND ORD } #YT section II 
Column headings) 


—~ | 


ao eee ee air Se 
0010410091 

0051600151 

0210410351 Section III 
0250410411 (Field Specification) 
0290410471 

0330410531 

0370610591 


SECTION I--Control Line, 11 characters; for our example it is: 


1 2 314 5/6 7 81/9 1011 | 


ol7toj4j2tojolifol 4] 2 | 


Characters Explanation 
1-2 (07) /The number of fields in the master file. In 


our example there are 7; i.e. IDNT DESCRIPTION, 
ONHND, ORD, #YTD, MBAL, UCOST, from the inven- 
tory master file. 


3-5 (042) /Record size: Total number of characters for the 
field on the inventory master. The total in 
our example is 42 characters. 


Characters Explanation 


6-8 (001) /Process key base, starting position (character 
position of the sort key as it is on the Inven- 
tory Master File). In this example the sort 
key is commodity ID and it occupies first four 
characters in each master file record. Begin- 
ning position is l. 


9-10 (04) /Number of characters in the process key 
(Commodity ID 4 characters). 


11 (1) /Process key type (O = alpha, 1 = decimal). 
In our example commodity ID is a decimal 
number. 
SECTION II 


The column heading section consists of four lines with 132 characters 
of column heading. The first line contains character positions 1-33, 
the second line contains character positions 34-66, the third line 
contains character positions 100-132. 


In the inventory example the column heading section is: 


IDNT DESCRIPTION 
ONHND ORD #YTD MBAL UCOST 


All four lines must be there with a / in column 34.Presently we 
utilize only the first two lines because we only offer an 80-column 
line printer. (A 132 line printer will be available in the near future). 


The column headings are only for those headings you want printed 
on the audit trail. These headings may correspond to all of 

the heading fields that are on the master file, or only a few. 
In our example we have all. 


SECTION III 


The field specification section contains one line for each field 
in the master file. In our inventory example there are 7 fields, 
therefore, 7 lines. Each line is 10 characters. The format for 
each line is: 


Characters Explanation 
1-3 /Field position; the first character position of 


the field as it is on each inventory master 
record. 


Characters 


4-5 


10 


236. 


Explanation 


/Field size; the number of characters in the 
field. 


/Data type: O = alpha, 1 = decimal. 
/Print left index; the first print position. 
This will be zeroes if this column is not 


printed. 


/Field print switch; 0 means, do not print on the 
update report; 1 means print on update report. 


(If the file to be updated is fairly small, it will be possible 

to print all fields on the update report. However, if more than 
132 characters are needed, it will be necessary to "non-print" 
some fields by giving them an O in character position 7-10 of the 
field specification section). 


In our inventory example the 7 field lines are: 


O) = a) 
o No 
10) uy 2 Oo 
a Ft ci 
Se ee tee 
o ov Sf 
-d fH oe & 
Fy & A a, 
001 04 1 009 
005 16 0 O15 
021 04 1 035 
025 04 1 041 
029 04 1 047 
033 04 1 053 
037 06 1 059 


Switch 


See ee ee" Pield Prant 


- Commodity ID* 

- Description 

- Number on hand 
- WNumber on order 
- Number used YTD 
- Minimum Balance 
- Unit Cost 


*Line one is for the commodity ID. It says: the field base 
start at first position in inventory master, it's a 4-digit 
number, the data is decimal. On the update report, commodity 
ID will start in column 9 and it is to be printed on the 
update report. 
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2. Input Data Records 


Now suppose the following records are to be updated: delete 
item 30, insert a new item number 125, change the unit cost on item 
23, input would be prepared for the above changes 


D 30 

I 125 1 125 

I 125 2 ‘HOOK, COPPER' 
I 125 4 100 

I 125 7 10000 

AL 23 7 28000 

I 27 2 ‘BOLT, RED! 

$ 


The I line is used either for an insert or change. It specifies; 
the process key (Commodity ID), the field number, and the data to be 
inserted. To change one item of an existing record, the I line is 
used with the process key (Commodity ID) of the existing record, the 
field to be changed, and the new data. To add a record, simply use 
an I line for each field on the inventory master, where the process 
key is the new record identification. To delete an item, simply use 
the D line with the appropriate process key. 


The input data records have the following general format: 


I <process key> <field number7 <data? 
D <process key> 


In our inventory example: 


D 30 /delete item 30 
* FTF 125 1 125 /insert new item number 125 in ID field 
* I 125 2 'HOOK,COPPER' /insert HOOK,COPPER in description field 
of item 125 
* I 125 4 #100 /insert 100 in order field of item 125 
* FT 125 7 #21000 /insert 1000 in unit cost field of 
item 125 
tT 23 7 2800 /insert 2800 in unit cost field of 


item 23 (this would be a change to an 
existing item). 

tT 27 2 .|BOLT,RED! /insert BOLT,RED in description field 
of item 27. 


* A new item number - 125 is inserted with the description, number 

on order, and unit cost. The other field, i.e. number on hand and 
#YTD would be zeroed since no data was inserted into these fields 

(see Audit Trail). 

As each input transaction is read, it is listed, and any transaction in 
error will have an error message printed to the left. Only valid 
transactions are written on the output tape. 


ae 


Update Sort 


The sort control has already been discussed - refer 
back to explanation of SORT TRANSACTION. The only 
difference, in the update sort is, First; Update records 
must be regarded as 50 characters long for the sort 
record input size (this is a maximum figure, and even 
though your update records may not be that long, 50 is 
still the number used in the sort control) and Second! 
the field sorted must always be regarded as beginning 
in Position one(l) .The user does not have to concern 
himself with the update record Format on DECtape - he 
need only remember the two above rules. 


The update sort program puts the transactions (Insertions, 
Changes, Deletions) into the order of the appropriate 
master. file to be updated. In our example the inventory 
master is sorted by commodity I.D. 


The sort control for our update would be 


026130010460 
0010200 


$ 


First Line 


1-3 (026) - Record input size, normal practice is to 
use 50 for update record size (Rule 1) 
50+ 1=5142 = 25+ 1 = 26 
4-7 (1300)- Internal sort buffer size 
1300 = 26 x 50 (result must be less than 2000) 
Number of sort fields 
Number of blocks per DECtape 
190,000 = 1300 = 146 
13 (0) - Phase 2 input save switch 


8 (1) 
9-12 (0146) 


Second Line 


1-3 (001) -— First position of sort field. This will 
always be Position 1 (Rule 2). 

4-5 (02) -— Number of words spanned 

6 (0) - First word switch 

7 (0) ~ Last word switch 
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4. Update Report (Audit Trail) 

After the generalize update process program and the update control 
have been loaded into core, they will run the sorted transaction 
against the old master, producing a new master and an update report 
on the line printer. The update report in our example would be: 


DESCRIPTION MBAL UCOST 


DOWEL, RED 0054 026532 
DOWEL, RED 0054 028000 


BOLT, BROWN 0022 016564 


BOLT, RED 0022 016564 


FLANGE, PURPLE 0076 049909 


HOOK, COPPER 0000 001000 


Notice that the old item for the deleted record is displayed. 
For the inserted item, 125, the new master record is printed. For 
each of the changed items (23 and 27), both the old and the new 
master records are printed. 


RRKKERERKEREREKKEREKEEE 


This example has created a complete application package for inventory 
control. All of the program and control statements for the entire 
application appear in this memo. Not one additional line of code 

is needed. Even relatively inexperienced programmers can quickly 
learn to produce additional applications--billing, sales analysis, 
payroll, etc. DIBOL and the PDP-8 can bring you into 

the world of data processing, quickly and at an extremely low cost. 


APPENDIX 


Brief Description of the DIBOL Software System 


The DIBOL Software System contains a DIBOL language, Generalize 
Input Facility, Sort Package, Generalized Update Facility and 

a DIBOL Monitor. The following is a summary of the features 

of the system: 


1. DIBOL Language 


Each DIBOL program is divided into two sections - the data 
section and the procedure section. The data section is used 
to describe the information used in the program and to allo- 


cate memory. The procedure section contains the executable 
statements. 


The data section is broken up into a number of "blocks", each 
of which contains a number of "data elements". An example is: 


BLOCK MASTER 
CUSTNO, D4 
NAME, A30 
AMOUNT, D8 
BLOCK WORK, C 
TEMP, A10 
TABLE, 6D5 


In the example, the data is contained in two blocks; "master" 
and "work". The first block has 42 bytes and is divided into 
data elements "customer number", "name", and "amount". The 
customer number is specified to be decimal (D) and to contain 
four bytes. The name is specified alphanumeric (A) with 

thirty bytes. The second block is specified with the clear 
Option (C). This implies that a load time, TEMP will be filled 
with alphanumeric blanks and TABLE with decimal zeros. TABLE 
is specified to be an array of six elements, each of which 
contains five decimal bytes. 


The procedure section contains statements to control input/ 
output, compute arithmetic expressions, move data and control 
the program sequence of execution. Examples of each of the 
ten types of DIBOL statements are: 


1) INIT (1, V, OUT) 

2) XMIT (1, MASTER) 

3) FINI (1) 

4) PRINT (21, 45) = NAME 
PRICE = LIST * (100 — DISCT) / 100 
PRINT (60, 70) = AMOUNT, 'XXX,XXX.XX-' 

5) BUFF = 

6) GO TO LOOP 
GO TO (MASS, CONN, RI, NY), TAXCD 

7) IF (CODE1 _ CODE2 .NE. 0) GO TO PRINT 
IF (ONHAND .LT. MINBAL) GO TO ORDER 

8) CALL INPUT 

9) RETURN 

10) STOP 


The initialization statement (1) opens file-1l as an output file. 
The transmit statement (2) sends data from the block "master" 

to file-l. The finalization statement (3) performs the necessary 
operations to close file-l. | 


There are three examples of the data manipulation statement (4). 

In the first, the contents of "name: are moved into character 
positions 21 through 45 of the data element "print". In the 

second, a selling price is computed by marking down a "list 

price" by a "discount percentage" . The last example is similar 

to the first in that data is moved into specified positions or 
"print". The difference is that the move is formatted with 

a comma for the thousands digit, a decimal point for the units digit 
and a minus sign if "amount" is negative. Statement type (5) 

clears the contents of the specified data element. Decimal elements 
are set to zero and alphanumeric elements to blank. 


Statement type (6) is used for conditional and unconditional 

program branches. In the first example, control goes to the statement 
with the tag LOOP. In the second example, control goes to MASS,CONN, 
RI or NY depending on whether "tax code" is one, two, three or four. 


Statement type (7) may also be used for conditional branching. [In the 
first example, control goes to "print" if either code-1l or code-2 

is not equal to zero. Otherwise, control goes to the next statement. 
In the second example, control goes to “order" if the number "on hand" 
is less than the "minimum balance". 


The CALL statement (8) transfers control to the first statement 

of a closed subroutine. The RETURN statement (9) transfers control 
back to the statement after the last executed CALL statement. Finally, 
the STOP statement (10) causes a return to the DIBOL monitor. 


2. Generalized Input Facility 


The Generalized Input Facility provides a simple means for getting data 
into the computer. The user specifies his data fields, the desired 
output record contents and the input line formats. The Generalized 
Input Facility reads the input data, converts it to the specified 
output formats and performs careful error checking. 


The format of the Generalized Input control is: 


A field number type count optional constant 

B record number file number 

Cc field number 

D command record number zero field increment field 

E field number necessary switch present field default field 


ce Sort Package 


The sort package allows the user to arrange a data file in any specified 
order. The user defines the records to be sorted and gives "sort keys" 
within the record. The sort runs in’two phases. In the first phase 
(the internal sort), as many records as possible are read into memory 
and sorted. The sorted groups of records are written as strings onto 

an intermediate file. In the second phase (the poly-phase merge), 

the original strings are successviely made longer by merging until 


there is only one string remaining. This last string is the sorted 
output file, A third vhase of the sort (a general si 
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is used only in the case of multi-reel files. 
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The format for the sort control is: 


record size buffer size number fields buffers/tape tape save 
field base field size first word split last word split 


4. Generalized Update Facility 


The Generalized Update Facility provides a simple means for the user 

to perform insertions, changes and deletions on existing data files 

of arbitrary format. The user defines the content of the file 

records and the format of the desired "audit trail" report. He 

prepares the transaction input referring to records by "process key" and 
to individual fields by field number. DIBOL then performs all necessary 
inputting, sorting and updating to apply the transactions to the old 
master and produce a new master. As a by-product, the audit trail 
report shows which records have been deleted or inserted and which 
fields of existing records have been changed. 


The format of the Generalized Update Control is: 


number fields record size key base key size key type 
report heading 1-33 

report heading 34-66 

report heading 67-99 

report heading 100-132 

field base field count data type print left index print? 


The general format for the user transactions are: 


I process key field number data 
D process key 


ae DIBOL Monitor 


The DIBOL monitor ties the various DIBOL facilities together 

into a unified data processing system. By means of a simple 
interactive dialog, the monitor executes the subsystems according 
to operator commands. The commands to call subsystems are: 


Command Subsystem 

COMP DIBOL Compiler 

RSYS Run Time System 

SRT1L Sort Phase I 

SRT2 Sort Phase II 

SRT3 Sort Phase III 

GENT Generalized Input Facility 

GUPI Generalized Update Facility-input 
GUPP Generalized Update Facility-process 
EDIT DIBOL Editor 

DUMP Tape Dump 

CDDT Card to DECtape utility 

DTPR DECtape to printer utility 

PTDT Paper Tape to DECtape utility 
DTFX DECtape data edit utility 


The DIBOL compiler (COMP) takes it input from a source master file 

on DECtape. Its output goes onto an updated object master, also on 
DECtape. The run time system (RSYS) executes DIBOL programs which have 
been compiled. The three phases of the sort may be called by the 
commands SRT1,SRT2, and SRT3. The Generalized Input Facility (GENI), 
when loaded into memory, asks the user for the name of the control. 
After the user responds, the control is fetched from the system DECtape 
and the input process begins. 


The Generalized Update Facility is operated in three phases-~input, 
sort and process. The input phase (GUPI) reads in the transactions 
in an operation similar to that of the Generalized Input Facility. 
Then the sort (SRT1,SRT2 and possibly SRT3) is used to order the 
transactions on master file order. Finally, the process phase (GUPP) 
does the file update. 


The DIBOL Editor (EDIT) provides a source program file maintenance 
capability. It is used for the creation and editing of DIBOL source 
programs, sort controls, generalized input controls and generalized 
update controls. It is also used to perform maintenance of the 
DIBOL system tape. 


The tape dump (DUMP) is used to print any DIBOL generated data 
DECtape. It gives record count, record size and all data printed 

in both alphanumeric and decimal formats. The Card to DECtape utility 
(CDDT) creates DECtape files of alphanumeric card images. The DECtape 
to Printer utility (PTDT) is the same as CDDT, except the input comes 
from paper tape, The DECtape Fix utility (DTFX) provides a simple 
means of checking and/or changing any field within any record of a 
DIBOL generated data tape. 


i ee 


The DIBOL Software 


es a Simple, but complete capability 
for commercial applications on the PDP-8 family of computers. It is 
the most easily learned total data processing package in the industry. 
DIBOL is ready to solve the data processing problems of small to 


medium sized businesses. 
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